 GetMaxY ()     ( Graph)
 -------------------------------------
     .

 :
 Function GetMaxY : Integer;

 :
Real, Protected

 :
     Y    . 
       .

  :
 GetMaxX
 GetX
 GetY
 MoveTo

 :
 GetMxx.PAS


 {Getmxx.PAS}
-------------
{     GetMaxX }

Uses Graph;

Var Gd, Gm : Integer;

Begin
 Gd:=Detect;
 InitGraph(Gd, Gm, '');
 If GraphResult <> grOk Then Halt(1);
 {      }
 Rectangle(0, 0, GetMaxX, GetMaxY);
 ReadLn;
 CloseGraph;
End.
